home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_4051.txt < prev    next >
Text File  |  1988-05-06  |  3KB  |  106 lines
  1. -- card: 4051 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2663
  5. -- name: Where To
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2004
  11. -- rect: left=272 top=22 right=59 bottom=311
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 18814 / 18814
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Where To?
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Where To?, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this button is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.   Global ReturnID
  34.  
  35.   if the optionKey is down then
  36.     if ReturnID is not empty then go to ReturnID
  37.     exit mouseUp
  38.   end if
  39.  
  40.   put the ID of this card into ReturnID
  41.   Answer "Where do you wish to go?" with "HOME" or "Card #" or "Other"
  42.   if it is "Home" then go home
  43.   if it is "Card #" then
  44.     ask "Enter the card number you wish to go to?" with the number of this card
  45.     if it is empty then exit mouseUp
  46.     go to card it
  47.     exit mouseUp
  48.   end if
  49.   if it is "Other" then
  50.     Ask "[ Any, Mid, First, Second, Last, Pop, All ]"
  51.     if it is empty then exit mouseUp
  52.     if it contains "Pop" then
  53.       pop card
  54.       exit mouseUp
  55.     end if
  56.     if it contains "All" then
  57.       show all cards
  58.       exit mouseUp
  59.     end if
  60.     set loc of message box to 20,-50
  61.     put "Go" && it into message box
  62.     hide message box
  63.     set loc of message box to 20,300
  64.     do message box
  65.   end if
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 2 (field)
  71. -- low flags: 01
  72. -- high flags: 0004
  73. -- rect: left=314 top=22 right=37 bottom=374
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 3
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 12
  81. -- part name: See Script
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   edit script of card button "Where to?"
  85. end mouseUp
  86.  
  87.  
  88. -- part contents for background part 8
  89. ----- text -----
  90. Card 20 of 20
  91.  
  92. -- part contents for background part 9
  93. ----- text -----
  94. WHERE TO
  95.  
  96. This button can be a useful alternative to the regular home button because it is more flexible.  You can go to a card number, or Home, or the last card, mid card, any card, first, second, third card, etc.  
  97.  
  98. This particular Icon picture is not included with HyperCard, so you will have to paste the resource ICON into the stack you are using.
  99.  
  100. If you click other, and enter information about where you wish to go, you can repeat the same command again by hitting the RETURN or ENTER key.  (Useful if you had entered to go to ANY card to go to cards randomly)
  101.  
  102. If you wish to return to where you were when you first clicked the button, simply hold the option key down while clicking the button. 
  103.  
  104. -- part contents for card part 2
  105. ----- text -----
  106. See Script